home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 27 (1992-03)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 27 (1992-03)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / Programming / DataMaker / Icon.bas < prev    next >
BASIC Source File  |  1992-03-30  |  5KB  |  167 lines
  1. REM - DATA STATEMENTS GENERATED FROM dh0:HBasic.info
  2.  
  3. PRINT "FILE GENERATOR"
  4. RESTORE Info : READ item%,n : RESTORE
  5. ln = 1      : ' Line number
  6. PRINT : PRINT "Original filename was >dh0:HBasic.info" : PRINT
  7. INPUT "Filename for output   >" , codename$
  8. OPEN codename$ FOR OUTPUT AS #1
  9. PRINT : PRINT : PRINT "Processing DATA line" ; 
  10. xp = POS(0)         : 'remember cursor position on this line
  11. FOR number = 1 to n
  12. GOSUB Readindata
  13. IF i% = item% THEN GOSUB Check
  14. IF (ln = INT(n/item%) + 1) AND (number < n) THEN
  15.   FOR last = number + 1 TO n
  16.   GOSUB Readindata
  17.   NEXT last: GOSUB Check : number = n
  18. END IF
  19. NEXT number : CLOSE
  20. PRINT : PRINT "<<< ALL DONE! >>>" : END
  21.  
  22. Readindata:
  23. READ word :if word < 0 then word = word + 65536
  24. t = t + word : i% = i% + 1
  25. hb% = int(word/256) : lb% = word - hb% * 256
  26. PRINT #1, CHR$(hb%) ; CHR$(lb%) ;
  27. RETURN
  28.  
  29. Check:
  30. LOCATE CSRLIN,xp : PRINT  ln ;
  31. READ ch : IF t = ch THEN ln = ln + 1 : t = 0 : i% = 0 : RETURN
  32. BEEP : PRINT
  33. PRINT "<<< CHECKSUM ERROR IN LINE" ; ln ; " of the DATA statements >>>"
  34. CLOSE : KILL Codename$ : END
  35.  
  36. REM <<< Line Number 1 >>>
  37. DATA 58128,    1,    0,    0,  58129
  38. DATA   385,   12,   77,   18,    492
  39. DATA     6,    3,    1,   33,     43
  40. DATA 19048,   33,19680,    0,  38761
  41. DATA     0,    0,    0,    0,      0
  42. DATA     0,    0,    0,    0,      0
  43. DATA   547,    0,    0,    0,    547
  44. DATA     0,    0,  367,    0,    367
  45. DATA     1,    1,29128,    0,  29130
  46. DATA     0,    0,    0,    0,      0
  47.  
  48. REM <<< Line Number 11 >>>
  49. DATA    83,  531,  129,    1,    744
  50. DATA     0,    0,  576,  639,   1215
  51. DATA     1,30180,    0,    0,  30181
  52. DATA    32,35400,    0,    0,  35432
  53. DATA     0,    0,   90,   40,    130
  54. DATA 65535,65535,    1,    0, 131071
  55. DATA    78,    0,    3,    0,     81
  56. DATA     0,   77,   17,    2,     96
  57. DATA     1,19640,  768,    0,  20409
  58. DATA     0,    0,    0,    0,      0
  59.  
  60. REM <<< Line Number 21 >>>
  61. DATA     0,    0,    0,65535,  65535
  62. DATA 65535,65535,64576,   15, 195661
  63. DATA 65535,65535,65535,61824, 258429
  64. DATA     0,    0,    0,    0,      0
  65. DATA  1856,  511,65535,65535, 133437
  66. DATA 65535,59008,  448,    0, 124991
  67. DATA     0,    0,59200,  463,  59663
  68. DATA 65535,65535,65532,59008, 255610
  69. DATA   463,65535,65535,65532, 197065
  70. DATA 58688,  463,65528,65479, 190158
  71.  
  72. REM <<< Line Number 31 >>>
  73. DATA 65532,59008,  463,65520, 190523
  74. DATA    11,65532,58624,  463, 124630
  75. DATA 65535,21845,65532,58880, 211792
  76. DATA   463,65535,65535,65532, 197065
  77. DATA 58368,  448,    0,    0,  58816
  78. DATA     0,57344,  511,65535, 123390
  79. DATA 65535,65535,57344,    0, 188414
  80. DATA     0,    0,    0,    0,      0
  81. DATA     0,    0,    0,    0,      0
  82. DATA     0,    0,    0,    0,      0
  83.  
  84. REM <<< Line Number 41 >>>
  85. DATA     0,    0,    1,65535,  65536
  86. DATA 65535,65535,65504,   31, 196605
  87. DATA 65535,65535,65535,65504, 262109
  88. DATA   511,65535,65535,65535, 197116
  89. DATA 65504, 4095,65535,65535, 200669
  90. DATA 65535,65504, 4095,65535, 200669
  91. DATA 65535,65535,65504, 4095, 200669
  92. DATA 65535,65535,65535,65504, 262109
  93. DATA  4095,65535,65535,65535, 200700
  94. DATA 65504, 4095,65535,65535, 200669
  95.  
  96. REM <<< Line Number 51 >>>
  97. DATA 65535,65504, 4095,65535, 200669
  98. DATA 65535,65535,65504, 4095, 200669
  99. DATA 65535,65535,65535,65472, 262077
  100. DATA  4095,65535,65535,65535, 200700
  101. DATA 65408, 4095,65535,65535, 200573
  102. DATA 65535,65280, 4095,65535, 200445
  103. DATA 65535,65535,65024, 4095, 200189
  104. DATA 65535,65535,65535,64512, 261117
  105. DATA  4095,65535,65535,65535, 200700
  106. DATA 63488,    0,    0,    0,  63488
  107.  
  108. REM <<< Line Number 61 >>>
  109. DATA     0,    0,    0,    0,      0
  110. DATA     0,    0,    0,    0,      0
  111. DATA     0,   77,   17,    2,     96
  112. DATA     1,29576,  768,    0,  30345
  113. DATA     0,    0,    0,    0,      0
  114. DATA     0,    0,    0,65535,  65535
  115. DATA 65535,65535,64576,   15, 195661
  116. DATA 65535,65535,65535,61824, 258429
  117. DATA     0,    0,    0,    0,      0
  118. DATA  1856,  511,65535,65535, 133437
  119.  
  120. REM <<< Line Number 71 >>>
  121. DATA 65535,59008,  448,    0, 124991
  122. DATA     0,    0,59200,  256,  59456
  123. DATA     0,    0,    0,59008,  59008
  124. DATA     0,    0,    0,    4,      4
  125. DATA 58688,    0,    0,    0,  58688
  126. DATA    12,59008, 4095,65535, 128650
  127. DATA 65535,65484,58624, 4095, 193738
  128. DATA 65535,65535,65484,58880, 255434
  129. DATA  4095,65535,65535,65484, 200649
  130. DATA 58368, 4095,65087,61951, 189501
  131.  
  132. REM <<< Line Number 81 >>>
  133. DATA 65484,57344, 4095,64512, 191435
  134. DATA   767,65481,57344, 4095, 127687
  135. DATA 65493,21887,65472,    0, 152852
  136. DATA  4095,65535,65535,65472, 200637
  137. DATA     0,    0,    0,    0,      0
  138. DATA     0,    0,    0,65535,  65535
  139. DATA 65535,65535,65504,   15, 196589
  140. DATA 65535,65535,65535,65504, 262109
  141. DATA   255,65535,65535,65535, 196860
  142. DATA 65504, 2047,65535,65535, 198621
  143.  
  144. REM <<< Line Number 91 >>>
  145. DATA 65535,65504, 2047,65535, 198621
  146. DATA 65535,65535,65504, 2047, 198621
  147. DATA 65535,65535,65535,65504, 262109
  148. DATA  2022,43690,43690,43695, 133097
  149. DATA 65504, 3926,21845,21845, 113120
  150. DATA 21855,65504,16383,65535, 169277
  151. DATA 65535,65535,65504,16383, 212957
  152. DATA 65535,65535,65535,65472, 262077
  153. DATA 16383,65535,65535,65535, 212988
  154. DATA 65408,16383,65535,65535, 212861
  155.  
  156. REM <<< Line Number 101 >>>
  157. DATA 65535,65280,16383,65535, 212733
  158. DATA 65535,65535,65024,16383, 212477
  159. DATA 65535,65535,65535,64512, 261117
  160. DATA 16383,65535,65535,65535, 212988
  161. DATA 63488,16383,65535,65535, 210941
  162. DATA 65528,    0,16383,65535, 147446
  163. DATA 65535,65520,    0, 131055
  164.  
  165. Info:
  166. DATA  4, 427    : ' number of items /line, /total
  167.